0 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(10)"JOYSTICK INITIALS"
1 REM ==================================
2 REM    COMMODARES PROBLEM #54-1 :
3 REM       JOYSTICK INITIALS
4 REM    SOLUTION BY
5 REM       KEITH KUSHNER
6 REM ===== PORT 1 : C-64 ==============
10 POKE 1520+I,A-31*(A=0):A=Q-INT(Q/27)*27:P=255-PEEK(56321):Q=Q-(P=8)+(P=4)
20 ON-(P<>16)GOTO10:I=I+1+2*(A=0)-((A=0)AND(I=0)):ON-(I<3)GOTO10: POKE 198,0